home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / mail / mailx6 / _setup.1 / DEMOMDI.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-03-22  |  2.9 KB  |  104 lines
  1. VERSION 2.00
  2. Begin MDIForm SessionForm 
  3.    Caption         =   "Mail X for Visual Basic"
  4.    ClientHeight    =   5340
  5.    ClientLeft      =   1065
  6.    ClientTop       =   1815
  7.    ClientWidth     =   7050
  8.    Height          =   6000
  9.    Left            =   1020
  10.    LinkTopic       =   "MDIForm1"
  11.    Top             =   1200
  12.    Width           =   7140
  13.    Begin SSPanel Panel3D1 
  14.       Align           =   1  'Align Top
  15.       BackColor       =   &H00C0C0C0&
  16.       BevelInner      =   1  'Inset
  17.       Font3D          =   0  'None
  18.       Height          =   645
  19.       Left            =   0
  20.       TabIndex        =   0
  21.       Top             =   0
  22.       Width           =   7050
  23.       Begin MForm MForm1 
  24.          Height          =   255
  25.          Left            =   4560
  26.          MXFormName      =   "FormTag2"
  27.          Top             =   120
  28.          Width           =   1935
  29.       End
  30.       Begin MSess MSess1 
  31.          DefaultPath     =   ""
  32.          DisplayErrors   =   -1  'True
  33.          DownLoadMsg     =   -1  'True
  34.          Height          =   420
  35.          Left            =   3840
  36.          LogonUI         =   -1  'True
  37.          Mail_Type       =   0  '0- NONE
  38.          MapiCustomLibName=   ""
  39.          NewSession      =   -1  'True
  40.          Password        =   ""
  41.          Top             =   120
  42.          User            =   ""
  43.          Width           =   420
  44.       End
  45.       Begin CommandButton BtnNewMsg 
  46.          Caption         =   "New Msg"
  47.          Height          =   390
  48.          Left            =   1395
  49.          TabIndex        =   2
  50.          Top             =   120
  51.          Width           =   1200
  52.       End
  53.       Begin CommandButton Tb_Inbox 
  54.          Caption         =   "Inbox"
  55.          Height          =   390
  56.          Left            =   120
  57.          TabIndex        =   1
  58.          Top             =   120
  59.          Width           =   1215
  60.       End
  61.    End
  62.    Begin Menu Session 
  63.       Caption         =   "&Session"
  64.       Begin Menu InboxList 
  65.          Caption         =   "&Inbox List"
  66.       End
  67.    End
  68.    Begin Menu Message 
  69.       Caption         =   "&Message"
  70.       Begin Menu NewMail 
  71.          Caption         =   "&New Mail"
  72.       End
  73.    End
  74. Sub BtnNewMsg_Click ()
  75.     NewMail_Click
  76. End Sub
  77. Sub Command1_Click ()
  78. End Sub
  79. Sub InboxList_Click ()
  80.     Dim NewInboxList As New InboxForm
  81.     NewInboxList.Show
  82. End Sub
  83. Sub MDIForm_Load ()
  84.     Load SystemX
  85.     SystemX.MSMAIL = True
  86.     SystemX.Show 1
  87.     MSess1.Logon = True
  88.     If MSess1.Logon = False Then End
  89. End Sub
  90. Sub NewMail_Click ()
  91.     Dim MsgWnd As New MsgForm
  92.     MsgWnd.szTime.Enabled = False
  93.     MsgWnd.szMsgID.Enabled = False
  94.     MsgWnd.szOriginator.Enabled = False
  95.     MsgWnd.szFileList.Enabled = False
  96.     MsgWnd.btnReply.Enabled = False
  97.     MsgWnd.BtnForward.Enabled = False
  98.     MsgWnd.MMsg1.WorkingMsg = COMPOSE_MSG
  99.     MsgWnd.Show
  100. End Sub
  101. Sub Tb_Inbox_Click ()
  102.     InboxList_Click
  103. End Sub
  104.